﻿''' <summary>
''' Die Angriffstabelle einer Custom Einheit.
''' </summary>
''' <remarks></remarks>
Public Class AngriffstabelleCustom
    Inherits Angriffstabelle
    Public Sub New(ByRef Reader As IO.StreamReader)
        While Not Reader.EndOfStream
            Dim Zeile As String = Reader.ReadLine.Trim
            If Zeile.StartsWith("'") Then Continue While
            If Zeile.ToLower.StartsWith("tabellenende") Then Exit While
            Dim Daten As String() = Zeile.Split(":")
            Select Case Daten(0).ToUpper
                Case "ABPZ"
                    ABPZ = Daten(1)
                Case "ART"
                    ART = Daten(1)
                Case "AUFKLÄRER"
                    AUFKLÄRER = Daten(1)
                Case "BOMBER"
                    BOMBER = Daten(1)
                Case "FLAK"
                    FLAK = Daten(1)
                Case "FLTR"
                    FLTR = Daten(1)
                Case MovementSorts.Höllium.ToString.ToUpper
                    HÖLLIUM = Daten(1)
                Case "HOVERCRAFT"
                    HOVERCRAFT = Daten(1)
                Case "INF"
                    INF = Daten(1)
                Case "JGPZ"
                    JGPZ = Daten(1)
                Case "JÄGER"
                    JÄGER = Daten(1)
                Case "K-HELI"
                    KHELI = Daten(1)
                Case "KPZ"
                    KPZ = Daten(1)
                Case "KREUZER"
                    KREUZER = Daten(1)
                Case "L-BOOT"
                    LBOOT = Daten(1)
                Case "LÄUFER"
                    LÄUFER = Daten(1)
                Case MovementSorts.Mech.ToString.ToUpper
                    MECH = Daten(1)
                Case "MEGAPZ"
                    MEGAPZ = Daten(1)
                Case "MISSILE"
                    MISSILE = Daten(1)
                Case "RKW"
                    RKW = Daten(1)
                Case "SSIEINHEIT"
                    SSIEINHEIT = Daten(1)
                Case "SCHLFF"
                    SCHLFF = Daten(1)
                Case "S-BOMBE"
                    SBOMBE = Daten(1)
                Case "S-BOOT"
                    SBOOT = Daten(1)
                Case "SPÄHER"
                    SPÄHER = Daten(1)
                Case "TARNK"
                    TARNK = Daten(1)
                Case "TITANPZ"
                    TITANPZ = Daten(1)
                Case "T-FLUGZEUG"
                    TFLUGZEUG = Daten(1)
                Case "T-HELI"
                    THELI = Daten(1)
                Case "TTL"
                    TTLÄUFER = Daten(1)
                Case "TTP"
                    TTP = Daten(1)
                Case "U-BOOT"
                    UBOOT = Daten(1)
                Case "ZEPPELIN"
                    ZEPPELIN = Daten(1)
                Case "ZERSTÖRER"
                    ZERSTÖRER = Daten(1)
                Case "GEBÄUDE"
                    Gebäude = Daten(1)
                Case "DREADNAUGHT"
                    DREADNAUGHT = Daten(1)
                Case "V3RAKETENWERFER"
                    V3Raketenwerfer = Daten(1)
                Case "BAUPANZER"
                    BAUPANZER = Daten(1)
                Case "TRITON"
                    TRITON = Daten(1)
                Case "VERSORGUNGSSCHIFF"
                    VERSORGUNGSSCHIFF = Daten(1)
                Case "HOVERFLAK"
                    HOVERFLAK = Daten(1)
                Case "SCHWERESHOVERCRAFT"
                    SCHWERESHOVERCRAFT = Daten(1)
                Case "MOTORRAD"
                    MOTORRAD = Daten(1)
                Case "FLARE"
                    FLARE = Daten(1)
                Case "PANZERABWEHRKANONE"
                    PANZERABWEHRKANONE = Daten(1)
                Case "WASSERFLUGZEUG"
                    WASSERFLUGZEUG = Daten(1)
                Case "KANONENBOOT"
                    KANONENBOOT = Daten(1)
                Case Else
                    MyBase.AddCustomUnit(Daten(0).ToUpper, Daten(1))
            End Select
        End While
    End Sub
End Class
